100 GOSUB820:POKE 53280,6:POKE 53281,6:PRINT CHR$(8)"[147][154]"SPC(14)"MATCH BLOX"
110 L$(1)="[129][207][183][208][157][157][157][180] [170][157][157][157][204][175][186][146][145][145]":L$(2)="[154]"+RIGHT$(L$(1),21)
120 NA$(1)="UNI-COLOR":NA$(2)="  CROSS":NA$(3)="NO CENTER"
130 NA$(4)="4 CORNERS":NA$(5)=" 5 POINTS":MV$="MOVES"
140 DIM Y(10),P$(10),CL(5,9):FOR I=1 TO 9:READ V(I,1),V(I,2),V(I,3),V(I,4)
150 NEXT:MT=1:UP=8:DN=14:LM=16:RM=22:TE=5:QX=11:QY=19:MV=-1:Q=14:X=8:P=0
160 FOR C=1 TO 9:Y(C)=X:P$(C)=L$(2):Z=INT(10*RND(1))
170 IF Z<=5 THEN Y(C)=Q:P$(C)=L$(1)
180 NEXT
190 T$="[207][208][157][157][204][186][145]":FOR RX=1 TO 5:FOR I=1 TO 9:CL(RX,I)=8:NEXT I,RX
200 FOR I=1 TO 9:CL(1,I)=14:CL(3,I)=14:NEXT:CL(3,5)=8
210 CL(2,2)=14:CL(2,4)=14:CL(2,5)=14:CL(2,6)=14:CL(2,8)=14
220 CL(4,1)=14:CL(4,3)=14:CL(4,7)=14:CL(4,9)=14
230 CL(5,1)=14:CL(5,3)=14:CL(5,5)=14:CL(5,7)=14:CL(5,9)=14
240 PRINT SPC(12)"[155][175][157][157][170]1[146][180][157][157][183][145][154] UNI-COLOR":PRINT SPC(12);
250 PRINT"[155][175][157][157][170]2[146][180][157][157][183][145][154] CROSS":PRINTSPC(12)"[155][175][157][157][170]3[146][180][157][157][183][145][154] NO CENTER"
260 PRINT SPC(12)"[155][175][157][157][170]4[146][180][157][157][183][145][154] 4 CORNERS"
270 PRINT SPC(12)"[155][175][157][157][170]5[146][180][157][157][183][145][154] 5 POINTS"
280 PRINT TAB(12);"YOUR CHOICE[145]  [155][175][157][157][170] [146][180][157][157][183][154]"
290 S=127-PEEK(56320):IF S=4 THEN MT=MT-1:IF MT<1 THEN MT=1
300 IF S=8 THEN MT=MT+1:IF MT>5 THEN MT=5
310 IF S>=15 THEN DZ=MT:GK=MT:GOTO 330
320 POKE 1929,MT+176:POKE 56201,15:GOTO 290
330 PRINT CHR$(31)"[147]";
340 FOR I=0 TO 23:PRINT"                                       "
350 MM=1063+(40*I):POKE MM,160:POKE MM+54272,6:NEXT:POKE 2023,160:POKE 56295,6
360 PRINT"                                       ":POKE 53281,15
370 PRINT"";:PRINT SPC(15)""NA$(GK)""
380 PRINT""SPC(3)"MATCH[157][157][157]BLOX"
390 E=1:F=3:PRINT"":FOR BJ=1 TO 3:PRINT SPC(31);:FOR AI=E TO F
400 POKE 646,CL(GK,AI):PRINT T$;:NEXT:E=E+3:F=F+3:PRINT"":NEXT
410 GOSUB 420:GOTO 450
420 PRINT""TAB(15)""P$(1)P$(2)P$(3):PRINT""TAB(15)""P$(4)P$(5)P$(6)
430 PRINT""TAB(15)""P$(7)P$(8)P$(9)
440 POKE 782,QY:POKE 781,QX:POKE 783,0:SYS 65520:PRINT"[144][166][157]";:RETURN
450 MV=MV+1:U=0:FOR C=1 TO 9:IF Y(C)=X THEN U=U+1
460 NEXT:IF TC=1 THEN TC=0:MV=MV-1
470 IF MV>0 THEN PRINT""SPC(16)"MOVE"MV:GOSUB 440
480 IF GK=1 AND U=9 THEN 750
490 IF U=9 THEN 780
500 IF GK=2 AND U=5 AND Y(2)+Y(4)+Y(5)+Y(6)+Y(8)=40 THEN 750
510 IF GK=3 AND U=8 AND Y(5)=14 THEN 750
520 IF GK=4 AND U=4 AND Y(1)+Y(3)+Y(7)+Y(9)=32 THEN 750
530 IF GK=5 AND U=5 AND Y(1)+Y(3)+Y(5)+Y(7)+Y(9)=40 THEN 750
540 GOTO 610
550 P=U:IF Y(U)=X THEN TC=1:GOSUB 420:GOTO 450
560 W(1)=V(U,1):W(2)=V(U,2):W(3)=V(U,3):W(4)=V(U,4)
570 FOR G=1 TO 4:W=0:IF Y(W(G))=X THEN W=1
580 IF W=1 THEN Y(W(G))=Q:P$(W(G))=L$(1)
590 IF W=0 AND Y(W(G))=Q THEN Y(W(G))=X:P$(W(G))=L$(2)
600 NEXT:Y(U)=X:P$(U)=L$(2):GOSUB420:GOTO450
610 POKE 204,0:JY=15-PEEK(56320)AND15:JB=16-PEEK(56320)AND16
620 IF JB=0 THEN GOSUB 820:U=TE:GOTO 550
630 IF JY=8 THEN JY=3
640 IF JY<1 ORJY>4 THEN 610
650 GOSUB 820:ON JY GOTO 660,680,700,720
660 IF QX=UP THEN 610
670 QX=QX-3:TE=TE-3:GOTO 740
680 IFQX=DN THEN 610
690 QX=QX+3:TE=TE+3:GOTO 740
700 IF QY=RM THEN 610
710 QY=QY+3:TE=TE+1:GOTO 740
720 IF QY=LM THEN 610
730 QY=QY-3:TE=TE-1
740 GOSUB 420:GOTO 610
750 IF MV=1 THEN MV$="MOVE"
760 GOSUB 830:PRINT"       YOU SOLVED IT IN"MV;MV$:S1=30:S2=20:S3=-1
770 GOSUB 840:GOTO 800
780 GOSUB 830:PRINT"     NO MOVES AVAILABLE...GAME OVER":S1=17:S2=35:S3=1
790 GOSUB 840
800 PRINT"     PRESS FIREBUTTON TO PLAY AGAIN"
810 WAIT 56320,16,16:FOR I=54272 TO 54287:POKE I,0:NEXT:RUN
820 POKE 204,1:POKE 207,0:RETURN
830 GOSUB 440:PRINT"[154] ":RETURN
840 POKE 54296,15:POKE 54295,0:POKE 54273,40:POKE 54278,240:POKE 54277,0
850 POKE 54276,17:FOR A=S1 TO S2 STEP S3:FOR B=A TO 60-A
860 POKE 54273,B:NEXT B,A:POKE 54273,3:POKE 54276,0:RETURN
870 DATA 2,4,5,10,1,3,10,10,2,5,6,10,1,7,10,10,2,4,8,6,3,9,10,10,4,5,8,10,7,9
880 DATA 10,10,8,5,6,10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,240,0,3,248,0,7,252,0
890 DATA 7,252,0,7,252,0,3,248,0,1,240,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
900 DATA 0,0,0,0,0,0,0,0,0,190